Option Explicit
Sub B_Sample012()
    Dim myRng  As Range
    Dim myFmcs As FormatConditions
    Dim myFmc  As FormatCondition
    Set myRng = Range("A1")			'Nxs
    With myRng
        Set myFmcs = .FormatConditions
        If myFmcs.Count > 0 Then
            Set myFmc = myFmcs(1)
            MsgBox myFmc.Formula1
        Else
            MsgBox "S]w榡C"
        End If
    End With
    Set myFmc = Nothing				'
    Set myFmcs = Nothing
    Set myRng = Nothing
End Sub
